home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 22
/
freelog 22.iso
/
Prog
/
Pratique
/
Fic.cpp
< prev
next >
Wrap
C/C++ Source or Header
|
2000-11-17
|
1KB
|
37 lines
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Fic.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Memo1->Clear();
DirectoryListBox1->Directory="c:\\";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
{
DirectoryListBox1->Drive=DriveComboBox1->Drive;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
{
FileListBox1->Directory=DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ValidationClick(TObject *Sender)
{
Memo1->Lines->LoadFromFile(FileListBox1->FileName);
}
//---------------------------------------------------------------------------